﻿Imports Feed.Base
Namespace Database
    Public Class FeedDBItem
        Implements IBaseItem
        Dim CatV, GuidV As String
        Dim LastUpd As DateTime
        Property Category() As String Implements Base.IBaseItem.Category
            Get
                Return CatV
            End Get
            Set(ByVal value As String)
                CatV = value
            End Set
        End Property
        Property Guid() As String Implements Base.IBaseItem.Guid
            Get
                Return GuidV
            End Get
            Set(ByVal value As String)
                GuidV = value
            End Set
        End Property
        Property LastUpdated() As DateTime
            Get
                Return LastUpd
            End Get
            Set(ByVal value As DateTime)
                LastUpd = value
            End Set
        End Property
        Private FeedNV, FeedLiV, TitleV As String
        Public Property FeedName() As String Implements IBaseItem.FeedName
            Get
                Return FeedNV
            End Get
            Set(ByVal value As String)
                FeedNV = value
            End Set
        End Property
        Public Property Link() As String Implements IBaseItem.Link
            Get
                Return FeedLiV
            End Get
            Set(ByVal value As String)
                FeedLiV = value
            End Set
        End Property
        Public Property Title() As String Implements IBaseItem.Title
            Get
                Return TitleV
            End Get
            Set(ByVal value As String)
                TitleV = value
            End Set
        End Property
    End Class
End Namespace